Bioestadísticas

Preparativos

Carga de paquetes

library(readr)
library(dplyr)
library(ggplot2)
library(plotly)

Lectura de datos

bioestadisticas <-
  read_delim("bioestadisticas.csv")

Transformaciones

bioestadisticas <-
  bioestadisticas %>%
  mutate(fecha = as.Date(fecha, format = "%Y-%m-%d")) %>%
  arrange(fecha)

Análisis

Peso y grasa corporal

peso_grasa <-
  bioestadisticas %>%
  ggplot(aes(x = peso, y = `grasa-corporal`)) +
  geom_point(color = "red") +
  geom_smooth(method = "lm", se = TRUE, color = "black") +
  theme_minimal()

ggplotly(peso_grasa)

## Warning: Removed 4 rows containing non-finite values (stat_smooth).

Peso y masa muscular

peso_musculo <-
  bioestadisticas %>%
  ggplot(aes(x = peso, y = musculo)) +
  geom_point(color = "blue") +
  geom_smooth(method = "lm", se = FALSE, color = "black") +
  theme_minimal()

ggplotly(peso_musculo)

## Warning: Removed 5 rows containing non-finite values (stat_smooth).

Natación (distancia real) y peso

natacion_real_peso <-
  bioestadisticas %>%
  ggplot(aes(x = `nat-distancia-real`, y = peso)) +
  geom_point(color = "blue") +
  geom_smooth(method = "lm", se = FALSE, color = "black") +
  theme_minimal()

ggplotly(natacion_real_peso)

## Warning: Removed 113 rows containing non-finite values (stat_smooth).

Natación (distancia reloj) y peso

natacion_reloj_peso <-
  bioestadisticas %>%
  ggplot(aes(x = `nat-distancia-reloj`, y = peso)) +
  geom_point(color = "blue") +
  geom_smooth(method = "lm", se = FALSE, color = "black") +
  theme_minimal()

ggplotly(natacion_reloj_peso)

## Warning: Removed 113 rows containing non-finite values (stat_smooth).

Fecha y peso

fecha_peso <-
  bioestadisticas %>%
  ggplot(aes(x = fecha, y = peso)) +
  geom_line(color = "blue") +
  geom_smooth(method = "lm", se = FALSE, color = "black") +
  theme_minimal()

ggplotly(fecha_peso)

## Warning: Removed 4 rows containing non-finite values (stat_smooth).

Fecha y grasa

fecha_grasa <-
  bioestadisticas %>%
  ggplot(aes(x = fecha, y = `grasa-corporal`)) +
  geom_line(color = "blue") +
  geom_smooth(method = "lm", se = FALSE, color = "black") +
  theme_minimal()

ggplotly(fecha_grasa)

## Warning: Removed 4 rows containing non-finite values (stat_smooth).

Fecha y músculo

fecha_musculo <-
  bioestadisticas %>%
  ggplot(aes(x = fecha, y = musculo)) +
  geom_line(color = "blue") +
  geom_smooth(method = "lm", se = FALSE, color = "black") +
  theme_minimal()

ggplotly(fecha_musculo)

## Warning: Removed 5 rows containing non-finite values (stat_smooth).